(isfloat_string): Accept E like e.

diff --git a/src/lread.c b/src/lread.c
index 1b945fcba5b4bb2e8f70eb6a7678070c0b8bc720..8dab8ee74c4d95d13d99d7b6f9ad56ede564dddb 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -1671,7 +1671,7 @@ isfloat_string (cp)
       while (*cp >= '0' && *cp <= '9')
        cp++;
     }
-  if (*cp == 'e')
+  if (*cp == 'e' || *cp == 'E')
     {
       state |= E_CHAR;
       cp++;